1000 REM@S0:Q&D DIR DISPLAY
1010 REM_Q&D DIR DISPLAY
1020 OPEN15,8,15,"I0":REM INITIALIZE IN CASE DISK WAS SWAPPED OUT
1030 Z$=CHR$(0):Q$=CHR$(34):SP$=CHR$(160):IL$=CHR$(128)
1040 DIMF$(29):REM FOR FILE NAME
1050 TY$(0)="DEL":TY$(1)="SEQ":TY$(2)="PRG":TY$(3)="USR":TY$(4)="REL":REM FILE TYPS
1060 OPEN8,8,8,"$":REM OPEN DIRECTORY
1070 BU=0
1080 FORC1=1TO142:GET#8,K$:NEXT:REM SPACE UP TO DISK NAME
1090 PRINT"NAME:";:FORC1=144TO160:GET#8,K$:PRINTK$;:NEXT:PRINT"[146] ";:REM PRT NAME
1100 GET#8,L$,M$,N$:PRINT"ID:"M$;N$:REM PRT ID
1110 FORC1=164TO255:GET#8,K$:NEXT:REM SPACE UP TO FIRST FILE
1120 FORFILE=1TO144: REM COUNT THROUGH FILES
1130 FORBYTE=0TO29:GET#8,F$(BYTE):NEXT:IFST=66THENFILE=150:GOTO1240:REM GET FILE
1140 F$(0)=F$(0)+Z$
1150 IFF$(0)<IL$THEN1220:REM DELETED OR ILLEGAL FILES
1160 PRINTTY$(ASC(F$(0))-128);": ";:REM DISPLAY FILE TYPE
1170 PRINTQ$;:FORLTTR=3TO18:IFF$(LTTR)<>SP$THENPRINTF$(LTTR);:REM DISPLAY FILE NAME
1180 NEXT:PRINTQ$;
1190 SZ=256*ASC(F$(29)+Z$)+ASC(F$(28)):REM CALC FILE SIZE
1200 PRINTTAB(23-(SZ<100)-(SZ<10))SZ"BLOCK";:IFSZ<>1THENPRINT"S";:REM PRINT SIZE
1210 PRINT:REM C/R FOR NEXT FILE NAME
1220 IFFILE/8<>INT(FILE/8)THENGET#8,L$,M$:REM IRREGULARITY AT BLOCK BOUNDARY
1230 BU=BU+SZ:SZ=0
1240 NEXTFILE:PRINTBU"OF 664 BLOCKS USED."
1250 CLOSE8:CLOSE15